# dugoročne razine sa PEN world
df <- rdb(ids = c('OECD/MEI/USA.NAEXCP01.STSA.A',
'OECD/MEI/EA19.NAEXCP01.STSA.A',
# 'IMF/MFS/M.DE.FPOLM_PA',
'OECD/MEI/GBR.NAEXCP01.STSA.A')) %>%
filter(!is.na(value))
ggplot(df, aes(x = period, y = value, color = Country)) +
geom_line(size = 0.5)
df <- rdb(ids = c('OECD/MEI/USA.NAEXKP01.GYSA.Q',
'OECD/MEI/EA19.NAEXKP01.GYSA.Q',
# 'IMF/MFS/M.DE.FPOLM_PA',
'OECD/MEI/GBR.NAEXKP01.GYSA.Q')) %>%
filter(!is.na(value))
ggplot(df, aes(x = period, y = value, color = Country)) +
geom_line(size = 0.5)
df <- rdb(ids = c('OECD/MEI/USA.NAEXKP01.GYSA.A',
'OECD/MEI/EA19.NAEXKP01.GYSA.A',
# 'IMF/MFS/M.DE.FPOLM_PA',
'OECD/MEI/GBR.NAEXKP01.GYSA.A')) %>%
filter(!is.na(value))
ggplot(df, aes(x = period, y = value, color = Country)) +
geom_line(size = 0.5)
library(fredr)
fredr(
series_id = "JHDUSRGDPBR",
observation_start = as.Date("1940-01-01"),
observation_end = as.Date("2022-01-01")
) %>%
ggplot(data = ., mapping = aes(x = date, y = value, color = series_id)) +
geom_line() +
labs(x = "Observation Date", y = "Rate", color = "Series") +
ggtitle("Recesija u SAD")
fredr(
series_id = "JHGDPBRINDX",
observation_start = as.Date("1940-01-01"),
observation_end = as.Date("2022-01-01")
) %>%
ggplot(data = ., mapping = aes(x = date, y = value, color = series_id)) +
geom_line() +
labs(x = "Observation Date", y = "Rate", color = "Series") +
ggtitle("Vjerojatnost recesije u SAD")
fredr(
series_id = "UNRATE",
observation_start = as.Date("1940-01-01"),
observation_end = as.Date("2022-01-01")
) %>% # View()
ggplot(data = ., mapping = aes(x = date, y = value)) +
geom_line() +
geom_rect( aes(xmin=realtime_start, xmax=realtime_end, ymin=-Inf, ymax=+Inf), fill='pink', alpha=0.2) +
labs(x = "Observation Date", y = "Rate", color = "Series") +
ggtitle("Nezaposlenost u SAD")
A caption
A caption
A caption
A caption
A caption
A caption